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ABSTRACT 

A system called NLPQ is being developed at the Naval 
Postgraduate School as part of a research project in natural 
language man-machine communication. The basic part of the 
system consists of a rule language and programs to compile 
and execute rules. NLPQ currently allows a user to enter an 
English text description of a simple queuing problem at a 
time sharing terminal, have the computer construct an In- 
ternal Problem Description, and then produce an equivalent 
English text description and a GPSS simulation program to 
solve the problem. 

Recently, a FORTRAN routine for performing a GPSS-like 
simulation was incorporated into the system. This thesis 
reports on the development of another set of rules for NLPQ 
to translate an Internal Problem Description into an array 
of information required by this FORTRAN routine to perform 
the simulation. 
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INTRODUCTION 



I . 

In present times , computer technology more and more 
embraces the concept of distribution of on-line computing 
power to a large number of users via a complex system of 
data communications lines and sophisticated terminals. These 
systems already play an important part in the scientific, 
educational, military, and business communities by providing 
for source data input and response via typewriter, crt, or 
special purpose terminals. However, the users must learn one 
or more special computer languages in order to use one of 
these systems, and even then are limited to those tasks for 
which the language was designed. 

One way to surmount the problems of special training and 
limited capabilities of computer languages is to permit man- 
computer communication in the natural language of the user. 
Research in the area of natural language communication with 
a computer has generally focused on one major stxambling 
block, that of translating natural language statements into 
a precise data structure which may be used by the computer 
to accomplish desired tasks. Present day work centers about 
various language theories. One theory possessing con- 
siderable merit is that of Stratif icational Grammar by Sydney 
Lamb (1] . 

A project to investigate methods and techniques of a 
natural language system is being conducted at the Naval 
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Postgraduate School in Monterey, California [2,3]. The 
present objective of this project is to investigate a par- 
ticular application of natural language processing, that of 
describing a queuing problem to a computer in English text 
and having it execute a simulation program to solve the 
problem. The system being developed to meet the project 
objective is called NLPQ and it utilizes a more general system, 
called NLP, both of which will be described in a later section. 

A . BACKGROUND 

The basic components of the NLP system were part of the 
initial work on the project and consist of a system monitor 
made up of a number of FORTRAN programs and a rule language 
whose statements are compiled and executed by the FORTRAN 
programs. The system runs on the IBM 360/6 7-CP/CMS time 
sharing system at the Naval Postgraduate School. Since the 
initial work on NLP, development of the NLPQ system has 
resulted in improvements to NLP and a series of modules 
written in the NLP rule language. The names of the modules 
and the functions they perform are as follows: 

1. English decoding rules- translates English text 
representing a queuing problem into an internal structure 
known as the Internal Problem Description (IPD) [2,3,4]. 

2. English encoding rules- processes the IPD to produce 
an 'English text description of the IPD which may be compared 
against the input English text to check for accuracy [5]. 

3. GPSS encoding rules- processes the IPD to produc' 
a GPSS program [5,6,7]. 
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4. Massager rules- inspect an IPD structure and add 
information that might be assumed by a person that has some 
knowledge of the problem [8]. 

5. Interrogator rules- allows a user to enter a queuing 
problem in a question- answer mode and also inspects an IPD 
for missing or erroneous information that might result in an 
incomplete or incorrect GPSS program [8]. 

The end-product of the above modules is a GPSS program, 
which has to be run separately to perform the simulation. 

A recent addition to NLPQ is a FORTRAN simulation routine 
[9] whose algorithm is basically the same as that of the 
GPSS simulator [7]. This routine takes its input from a 
one dimensional array, called the X-Vector, structured in 
the same manner as the "internal tables" of the GPSS simu- 
lator. In order for NLPQ to utilize the simulator for 
performing a simulation "on-line", it then was necessary to 
develop a translational function capable of mapping the IPD 
representing the queuing problem into the table allocations 
of the X-Vector. 

B. THESIS OBJECTIVE 

The objective of this thesis, then, was to develop a 
set of encoding rules for producing the X-Vector from an 
Internal Problem Description. Because of the basic simi- 
larities between the X-Vector and a GPSS program, it was 
decided to write one set of rules which could produce both 
the X-Vector and/or a GPSS program, thereby obsoleting the 
original GPSS encoding rules. 
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C. ORGANIZATION OF THE THESIS 

This thesis is divided into five sections. Section II 
presents a description of pertinent portions of NLP and 
NLPQ. Section III discusses a sample problem. Section IV 
presents considerations involved in accomplishing the ob- 
jective of this thesis and describes a set of encoding rules 
which fulfill the objectives. Section V presents conclusions 
and recommendations. 
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II. DESCRIPTION OF NLPQ 



The IPD to X-Vector translational function is a module 
constructed in the NLP rule language utilizing features of 
both the physical and logical information structure of the 
IPD to accomplish its task. It is necessary, therefore, to 
describe these features in order to better understand the 
description of the module developed to accomplish the ob- 
jective of this thesis. The cell array, being the nucleus 
of the entire system, is discussed first. 

A . CELL ARRAY 

The basic physical element of the information structure 
is called a "cell". On the IBM 360/67 the cell consists of 
8 bytes, i.e., 64 bit positions. Most cells are divided 
into four fields of two bytes each. Bytes 1 and 2 are called 
the TYPE, bytes 3 and 4 are called the ATTR (attribute) , 
bytes 5 and 6 are called the ADDR (address) , and bytes 7 and 
8 are called the LINK. The TYPE field contains a number 
(0,1, 2, 3) that specifies the type of cell. The ATTR fie. d 
specifies the attribute number of the cell. ADDR is a ni.mber 
that stands by itself as a numeric value or is a pointer to 
another cell, depending on the value of type. LINK is a 
pointer to the next cell in a "list". In a cell of type 0 
the value of ADDR contains numeric information; in a typo 
1 cell, ADDR is a pointer to another cell that contains bit 
oriented information or the EBCDIC representation of o 
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characters; in a type 2 cell, ADDR is a pointer to a "local 
list" of cells; and in a type 3 cell, ADDR is a pointer to a 
"record" . 

A "list" is a group of cells connected through the LINK 
field, in which the last cell on the list has a LINK of 
zero. Both a "local list" and a "record" may be called a 
"list". However, a "record" has special features in that the 
first cell is of type 0 and the ADDR field contains a counter 
that indicates how many type 3 cells located elsewhere in the 
cell structure point to this record. 

The nucleus of the IPD logical structure is the pre- 
viously defined "record". A record represents some unique 
item such as a book, ship, action, thought, word, etc.. 

This record, then, represents some "entity" which has certain 
"attributes". Physically, each cell of the list that re- 
presents a record, holds the value of an attribute of that 
record. Each attribute has a number located in the ATTR 
field of the cell, and the cells of a record are linked in 
numerical sequence by attribute number. There are facilities 
in the system for associating a name with an attribute 
number. This may be done explicitly in a declaration or 
implicitly in the process of writing rules for an application. 

A special type of attribute is called an indicator and 
may be used when an attribute value may be specified in a 
bit position as 0 or 1. The individual bit positions of 
attribute 2 are used to hold these on/off value attributes. 

The indicator name and position of these on/off attribu 
are associated explicitly in a declaration. Other decl. red 



12 



attributes are attribute 1, named SUP, which points to 
another record considered to be a superset of the record of 
which SUP is an attribute, and attribute 10, called NAME, 
which contains the EBCDIC representation of a record's name. 

A record with an attribute 10 is considered to be a "named 
record". A reference to a named record for the entity "ship" 
would be in the form 'SHIP'. Named records with specified 
attributes may be declared in a similar manner to attributes 
and indicators. 

The logical structure of the IPD becomes, basically, a 
group of records connected in some logical manner by pointers 
in the ATTR and ADDR fields of the attribute cells. The 
actual form of the structure depends both on predetermined 
associations created by declared indicators, attributes, and 
named records, and on dynamically created associations that 
come about when the decoding rules are applied to input text. 

B. INTERNAL PROBLEM DESCRIPTION (IPD)' 

The queuing problem that NLPQ undertakes to solve may be 
thought of as consisting of a number of unique items called 
entities. Entities are unique in the sense that each may be 
distinguished from all other items or "things" involved :^n 
the problem. Entities are further divided into two groups 
called physical entities such as a truck, gas station, ship, 
or- pier, and abstract entities such as an action or function. 
Physical entities are then grouped into stationary entities 
and mobile entities. A general description of the flow in 
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a queuing problem is that the mobile entities engage in 
actions at the various stationary entities. 

A problem description in English could be divided into 
the parts mentioned above’. The basic structure of the 
problem would center on a sequence of actions being per- 
formed on or by an object at some location. The location 
is a stationary entity, the object is a mobile entity, and 
the action is an abstract entity. Once the mobile entity 
completes a specific action it moves on to a following action 
at the same or a different stationary entity depending on 
local conditions at the stationary entity. 

In the IPD, entities are represented by records which 
consist of attributes and their values. Attribute values 
need not be numeric and may be pointers to other records 
depending on their complexity. The heart of the IPD is a 
structure representing the various actions that would take 
place in the problem. For most problems those actions are; 
The arrival of a mobile entity, one or more servicings of 
the mobile entity and, finally, departure. Depending on the 
problem description, multiple paths may exist between ar- 
rival and departure. Records, representing the actions, 
are linked by pointers to form the structure. These action 
records possess certain attributes, which point to other 
records representing mobile entities and stationary entities 
associated with that particular action. Other records in 
the IPD represent functions, including distributions, neces- 
sary to furnish a complete description of the problem. 'n 
order to be able to locate specific records to make att xbute 
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or value changes, lists of pointers to the various entity 
records are also maintained in the IPD. There are lists of 
actions, mobile entities, stationary entities, distributions, 
and successor descriptors. A successor descriptor is a 
record giving information about which action should occur 
next. Pointers to these list records are maintained in a 
special record called MEMORY which also possesses other 
attributes containing specific items of information necessary 
to the problem. In the GPSS structure, upon which NLPQ is 
based, transactions are equivalent to mobile entities and 
a series of what are called executable blocks are equivalent 
to an action. 

C. DECODING AND ENCODING RULES 

In NLPQ the processing of input text to produce an IPD 
or its reverse, converting an IPD to some output text or 
structure, is performed within the framework of the Strati- 
ficational Grammar theory. This theory identifies three 
levels of language structure as being morphological, lexolog- 
ical, and semological. In general, it can be said that con- 
siderations at the morphological level are highly depend^:nt 
on the particular language, while semological elements are 
concerned with relationships or meanings and are relatively 
language-independent. The lexology represents a middle 
ground, but is still language-dependent. Consequently, in 
the decoding process, morphological and lexological rules 
are applied first in processing input text, and semologi -al 
rules develop the structure representing the meaning o he 
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text, (i.e., the IPD) . The encoding process applies semo- 
logical rules to the IPD first, and then rules at the lexo- 
logical and morphological levels to produce English text, 

GPSS code or the specific' elements of the X-Vector. 

Details of the decoding process may be found in [2] and 
[3], and will not be included in this section as they are 
not germain to this thesis. Because the encoding process is 
applied to translate the IPD to the X-Vector, the encoding 
rule processing procedure will be discussed here. 

The nature of the encoding process is such that at every 
step of the IPD- to-output translation there are certain 
temporary records, called segments, created. These temporary 
records are processed by applying rules until an output 
occurs. At any step in the process any segment may be 
identified by a unique name known as a segment type name. At 
the time of compilation, a permanent record known as a seg- 
ment type record is created. This record has a name attribute 
containing the name of the segment type and another attribute 
pointing to a list of encoding rules that have that name on 
the left of the arrow. The format of the encoding rules is: 

SEGMENT TYPE (CONDITION 1, CONDITION 2—) — > 

SEGMENT TYPE (ACTION 1, ACTION 2, — ) 

SEGMENT TYPE (ACTION 1, ACTION 2, — ) 

• A rule consists of a left side and a. right side, separated 
by the symbol --> . The right side may consist of more than 
one segment type. ^^hen a segment identified by the segment 
type oh ' the left is encountered and the conditions in 
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parentheses are met, segments identified by the segment types 
on the right are created and the actions in parentheses per- 
formed. These segments in turn are processed by rules with 
their segment type identifier on the left. Typical conditions 
on the left are the presence or absence of an indicator or 
attribute in the segment, satisfaction of some relationship 
between two values, or similar tests on attributes or in- 
dicators of some other record. Actions performed may be 
such things as addition or deletion of attributes or indicators 
of a record or copying of all or part of a record into the 
new segment. 

D. INTERROGATOR/MASSAGER 

Details of these two modules are contained in [8] and 
only a brief explanation is provided here for an overall 
understanding of the system. The object of the Massager is 
to provide values that might logically be assumed by a person 
knowledgeable about the queuing problem. All assumptions are 
expected to be non-controversial . The interrogator operates 
in a question-answer mode and permits entry of the problem 
piecemeal; or it may be used to inspect the IPD once the 
problem has been described, to detect erroneous or in- 
complete information. The interrogator is involved auto- 
matically by the system after decoding and massaging have 
occurred and before encoding takes place. 

E. FORTRAN SIMULATION ROUTINE 

This GPSS-like simulation routine is completely dos' ‘ibed 
in [9], but a short description will be provided here. xhe 
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routine takes its input from a single dimensioned array, 
known as the X-Vector, and is initialized by the calling 
program. The structure of the information in the array 
is basically that of the GPSS internal tables. The calling 
program must build in the array allocations of groups of 
contiguous elements that constitute GPSS entities. These 
entities consist of STORAGES, QUEUES, TABLES, FUNCTIONS, 
VARIABLES, SAVEVALUES , and BLOCKS. 

STORAGE and QUEUE allocations are made for the stationary 
entities of the problem. TABLE allocations occur for the 
problem's mobile entities. FUNCTION allocations evolve from 
the distributions and problem conditional paths. VARIABLES 
occur as needed, such as to describe a normal distribution. 
BLOCKS evolve from the various problem actions that occur. 

These allocations may be placed anywhere in the X-Vector 
except for the first 32 elements. Eleven of the first 32 
elements are reserved for certain attributes needed for all 
problems, and the remaining 21 contain information about what 
is in the rest of the array. Two locations for each entity 
in the first 32 elements contain the number of entities of 
that type and a pointer to a directory that points to each 
allocation for that type. The X-Vector for a sample problem 
will be shown in the next section. 

F.' ROUTINES 

Basic to the construction of the X-Vector is the concept 
of rule-FORTRAN communication. This is accomplished th ough 
the use of "routines". Routines make it possible to c 
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processing that cannot be specified in the NLP rule language 
In order to do this, these routine names and identifying 
numbers must be declared prior to compiling the rules, and 
the actual routines must be incorporated into the FORTRAN 
program. For this thesis routines were written to store 
values in the X-Vector and to retrieve values from the 
X-Vector. A listing of these routines appears in Appendix A 
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III. SAMPLE PROBLEM 



Figure I, extracted from Ref. 2, is an example of a 
queuing simulation problem. This English description was 
produced by encoding an Internal Problem Description in the 
manner described in Ref. 2. 

The GPSS/X-Vector rules were applied to the same IPD, 
and the results are listed in Figure 2. Each GPSS statement 
is followed by its equivalent in the X-Vector. Where three 
numbers are listed, they give the X-Vector element number, 
the value of the left half of the element, and the value of 
the right half. Where there are only two numbers, they give 
the X-Vector element number and its decimal value. 

As can be seen, first a SIMULATE block is put out with 
no corresponding X-Vector allocation. Then an RMULT statement 
with 8 seeds is emitted. Next, the seeds are entered in pre- 
designated elements 3 through 10 of the X-Vector. Then GPSS 
EQU statements for stationary entities STATl and PUMP2 are 
issued. Corresponding X-Vector STORAGE and QUEUE allocations 
are made. GPSS TABLE definitions come next, with TABLE al- 
locations made in the X-Vector. The following four FUNCTIONS 
and FVARIABLE are handled in the same manner. Following these 
are block allocations, beginning with a GENERATE block, and 
ending with a TERMINATE block in the timing loop. Next are 
the START and END control statements. Then the entity 
directories are set up and pointers placed in the appro iate 
locations within the first 32 elements. Finally, the 
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appropriate block numbers are backstuffed into the third 
argument of a text block allocation and the second argument 
of a transfer allocation. 

Figure 3 shows the layout of an X-Vector, with some 
information from the sample problem. First are the STORAGE 
and QUEUE allocations. A QUEUE allocation follows every 
STORAGE allocation. Then come the exponential and normal 
FUNCTION allocations, if required, followed by other FUNCTION 
allocations. VARIABLE allocations come next, followed by 
BLOCK allocations. Then come the directories which are in 
the same order as the allocations. 

The following example describes the use of the directory 
to locate an allocation. The contents of element 12 specifies 
that there are 2 storages and element 13 contains a pointer 
to the STORAGE directory, in this case, element 336, one less 
than the location of the first element in the directory. The 
two elements in the directory (337 and 338) contain pointers 
to the allocations, which begin in elements 33 and 51. The 
elements of each allocation are filled by the calling program 
or reserved for use by the simulator to collect statistics 
during simulation. A complete description of the significance 
of each allocation element may be found in Ref. 9. Those 
elements filled by the GPSS/X-Vector encoding rules, will 
be described in the next section. 

Another sample problem is given in A ppendix B. This is 
the "Harbor Problem" which originally appeared in Refs. 5 and 
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6. In the appendix the named records defining the IPD are 
given first, followed by the encoded English problem descrip- 
tion. Then the output produced by the GPSS/X-Vector encoding 
rules is given. 
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THE VEHICLES ARRIVE AT THE STATION. THE TIME BETWEEN 
ARRIVALS OF THE VEHICLES AT THE STATION IS NORMALLY 
DISTRIBUTED, WITH A MEAN OF 8 MINUTES AND A STANDARD 
DEVIATION OF 2 MINUTES. 75 PERCENT OF THE VEHICLES ARE 
CARS, AND THE REST ARE TRUCKS. AFTER ARRIVING AT THE 
STATION, IF THE LENGTH OF THE LINE AT THE PUMP IN THE 
STATION IS LESS THAN 2, THE VEHICLE WILL BE SERVICED AT THE 
PUMP IN THE STATION. OTHERWISE, THE VEHICLE WILL LEAVE THE 
STATION. THE TIME FOR THE VEHICLES TO BE SERVICED AT THE 
PUMP IN THE STATION IS EXPONENTIALLY DISTRIBUTED, WITH A 
MEAN OF 5 MINUTES FOR THE CARS, AND 9 MINUTES FOR THE 
TRUCKS. AFTER BEING SERVICED AT THE PUMP IN THE STATION, 
THE VEHICLES LEAVE THE STATION. 

THE SIMULATION IS TO BE RUN FOR 8 HOURS, USING A 
BASIC TIME UNIT OF 30 SECONDS. 



FIGURE 1 



ENGLISH DESCRIPTION OF THE SAMPLE PROBLE'* 



SIMULATE 

RMULT 277,423,815,121 , 655 , 53 1 ,999 , 813 



3 


0 277 




4 


0 423 




5 


0 815 




6 


0 121 




7 


0 655 




8 


0 531 




9 


0 999 




10 


0 813 




STATl 


EQU 


1, F,Q 


34 


0 1 




42 


0 4069 




50 


4069 0 




PUMP2 


EQU 


2,F,Q 


52 


0 1 




60 


0 4577 




68 


4577 0 




CAR2 


EQU 


2,T 


2 


TABLE 


Ml, 1, 1,2 


74 


0 1 




76 


0 2 




77 


0 1 




TRUC3 


EQU 


3,T 


3 


TABLE 


Ml, 1,1, 2 


85 


0 1 




87 


0 2 




88 


0 1 




1 


FUNCTION 


RN1,C24 


91 


-26 1 




92 


-23 6141 




94 


-25 0 




95 


1 24 





0.0, 0.0/. 100, .104/ .200, .222/ .300, .355/ 

.400, .509/. 500,. 690/. 600,. 9 15/. 7 00, 1.200/ 

.750, 1.390/. 800, 1. 600/ . 840, 1 . 830/ . 882, 2. 120/ 

.9 00, 2. 300/. 920, 2. 520/. 940, 2. 8 10/ .950,2.990/ 
.960,3.200/. 970,3. 50 0/ . 980 , 3 . 900 / . 990 , 4. 600/ 
.995,5.300/ .998, 6. 200/. 999, 7.000/1.000,8.000/ 

96 1 1 

97 0.0 

121 0.0 

98 .100 

122 .104 

z_ 

119 .999 

143 7.000 

120 1.000 

144 8.000 

2 FUNCTION RN2,C29 

169 -26 2 

170 -23 4421 

172 -25 0 

173 1 29 

0.0, -3. 000/. 012, -2. 250/. 027, -1.930/. 043, -1.720/ 
.062, -1.540/. 084, -1.380/. 104,-1. 260/. 131 ,-1.120/ 
.158,-1.000/. 187,-. 890/. 230,-. 740/ . 267 ,- . 620 / 
.334, -.430/ .432, -.170/. 500, 0.0/. 568, ,170/ 

.666,. 430/. 732,. 620/. 770,. 740/, 8 13,. 890/ 

.841, 1.000/. 869, 1. 120/.896, 1.260/.916, 1. 380/ 

.93 8, 1.540/. 9 57, 1.720/ .973 , 1 .930/ . 988, 2. 250/ 
1.000,3.000/ 

174 1 1 

175 0.0 

204 -3.000 



FIGURE 2 - GPSS PROGRAM AND X-VECTOR FOR THE SAMPLE I- 



LEM 
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176 .012 

205 -2.250 






202 


. 988 


231 


2.250 


203 


1.000 


232 


3.000 


FUNCTION 


262 


-1 1 


263 


-23 6 


265 


-25 0 


266 


2 2 



PI ,D2 



6343 



CAR2,10/TRUC3,18/ 



267 

268 

270 
269 

271 



0 

0 

0 

0 

0 



0 

2 

10 

3 

18 



RN3,02 



FUNCTION 

272 -26 3 

273 -23 6197 

275 -25 0 

276 2 2 

.750,CAR2/1. 000,TRUC3/ 

277 1 0 

.750 
0 2 
1.000 
0 3 

FVARIABLE 
282 0 16 
0 4 

-22 2 
-30 
-30 
-25 



* 

* 



278 
280 

279 
281 
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IV. GPSS/X-VECTOR ENCODING RULES 



This section will discuss the logic flow and details of 
the GPSS/X-Vector encoding rules. An overview will be pre- 
sented first, followed by a detailed description of the rules. 
Appendix C contains a listing of the rules, each of which is 
numbered for ease of reference. Appendix D summarizes the 
various segment types and the attributes they normally hold. 

A. OVERVIEW OF THE GPSS/X-VECTOR RULES 

APPENDIX C is divided into the following six parts: 

1. Indicator, Attribute, Routine, and Named 
Record declarations 

2. Semology for encoding GPSS/X-Vector 

3. Lexology for encoding GPSS 

4. Morphology for encoding GPSS 

5. Lexology for encoding X-Vector 

6. Morphology for encoding X-Vector 
Indicator, Attribute, and Routine declarations estab ish 

records which associate a symbolic name with a number to be 
used in the rule processing phase. Named Record definitions 
create records with a NAME attribute value as designated in 
the left column and other attribute value pairs as shown in 
parentheses. The form 'NAME' in parentheses sets the value 
of attribute 1, the SUP attribute, to point to the specified 
named record. 
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The structure of the GPSS/X-Vector rules is based on the 
format of a GPSS statement consisting of the following four 
fields : 

Label field-identif ies or points to a particular 
GPSS block. The attribute LABL represents 
this field. 

Operation field- identifies the nature of an 

action or definition statement. The SUP at- 
tribute of a STMNT segment represents this 
field. 

Mod field- amplifies the operation field. The 
attribute MOD of segment STMNT represents 
this field. 

Argument field- may contain from one to seven 

separate arguments called Standard Numerical 
Attributes , depending on the nature of the 
operation field. The attributes ARGA through 
ARGH represent this field. 

The rules are divided into five groups. There is one set 
of semological rules, whose function is to examine the IPD 
and produce STMNT segments, roughly corresponding to the 
statements of a GPSS program. The GPSS lexology produces 
other segments with the information from the STMNT segments 
in an order appropriate for a GPSS program. The GPSS 
morphology actually produces the output from these segments. 
Similarly to the GPSS lexology, the X-Vector lexology also 
produces other segments with the information from the S'] NT 
segments, but in an order appropriate for the X-Vector. The 



X-Vector morphology actually places the information in the 
X-Vector. The following discussion will provide an overall 
view of the logic flow involved in the processing. 

The creation of the segment GPSSPROG provides entry 
into the GPSS/X-Vector rules at the semological level. From 
GPSSPROG, two processing segments, INITIALGPSS and SETAGL 
are created to preset the values of various attributes. The 
rest of the segments created by GPSSPROG lead ultimately to 
a STMNT segment with, as appropriate, SUP, LABL, MOD, and 
ARGA through ARGH attributes. Preprocessing of certain 
STMNT segments as determined by the conditions on the left 
is done in rules 41 through 45, but ultimately all STMNT 
segments are processed by rule 46 and passed to the GPSS 
and X-Vector lexological level rules by the creation of 
segments GSTMNT and XSTMNT . The setting of indicator at- 
tribute NOCOPY prevents production of GPSS code or the 
X-Vector unless the indicator attributes GPSSSW of MEMORY 
or XVSW of MEMORY are set. Then the segments GSTMNT or 
XSTMNT or both become a copy of STMNT, and attribute NOCOPY 
is erased. 

At the GPSS lexological level the segment type GSTMN"^ is 
tested for various conditions on the left and produces seg- 
ment structures that represent X-Y coordinates of a GPSS 
FUNCTION or comments to be inserted at each occurence of an 
action in the GPSS program. A GSTMNT segment type rule v/ith 
no conditions on the left processes, with three exceptions, 
all other segments passed to this level and creates a sr ■- 
ment structure representing the contents of the various fields 
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of a GPSS block. At this stage in the development of NLPQ 
most GPSS code will have only three arguments. However, 
the three exceptions mentioned above, a segment type GSTMNT 
with a SUP attribute of 'RMULT', 'SELECT', or 'TABLE' may 
have as many as seven arguments. The final segment created 
at this level is of type ARG and is processed at the morpho- 
logical level. 

GPSS morphological level rules process the ARG segment 
records to produce, ultimately, a segment of type OUTPUT 
which causes an output at the terminal or to an internal file, 
complete with control functions such as line skip or tab. 
Output may be characters from the EBCDIC value of a NAME 
attribute or a numerical value from the ADDR field of a type 
0 cell. A determination is made by examining the TYPE field 
of the ARG segment. A type 0 causes creation of a NUMBER 
segment which goes to OUTPUT. A type 1 results in a NAME 
segment which goes to OUTPUT. A type 2 cell does not occur, 
a type 3 causes creation of a PARG segment whose subsequent 
rules test for various conditions on the left and create seg- 
ments that output characters or numerical values to fill the 
argument field of a GPSS block. 

X-Vector lexological rules process XSTMNT segment types 
created at the semological level to produce allocations of 
contiguous cells in the X-Vector for entities required by the 
FORTR^ simulation routine. At this level allocations for 
STORAGES, QUEUES, TABLES, FUNCTIONS and VARIABLE entities 
are set along with a directory and a directory locator ^r 
each entity. XSTMNT segments representing GPSS block e. cities 
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are processed by rule 127 with no condition on the left, and 
it indirectly creates segments of type XARGFLD to fill the 
elements of a BLOCK argument field with the proper Standard 
Numerical Attribute (SNA)' or numerical value. One exception 
to the general structure of this level is an XSTMNT Segment 
with a SUP of ' RMULT ' which is processed by this rule to load 
predesignated X-Vector elements 3 though 10. with random 
number seeds. Segments resulting from this level are of type 
XCODE, XVECTOR or XARG. 

At the X-Vector morphological level, processing of an 
XCODE segment creates a segment of type XVECTOR which outputs 
numerical values to the various X-Vector allocation elements 
by calling upon routines. A segment of type XARG is examined 
for its type. A type of 0 causes creation of an XVECTOR 
segment, a TYPE of 1 or 2 goes to null, a TYPE of 3 creates 
an XPARG segment, whose rules then cause an output to load 
the elements of each block entity. 

B. GPSS/X- VECTOR RULE EXPLANATIONS 

This section will describe the rules of APPENDIX C in 
detail. The declaration items there will be discussed along 
with the rule explanations. 

1 . Semology for encoding GPSS/X-Vector 
a. GPSSPROG (Rule 1) 

Processing of this segment type creates 13 seg- 
ments, 11 of which represent all of the elements required 
for a GPSS program. The other two, INITIALGPSS and SETAGL , 
perform certain initializing actions. The record MEMO" is 
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examined to locate, in the IPD, the stationary entity list 
(SELIST) , mobile entity list (MOBLIST) , distribution list 
(DISTLIST) , successor lis t (SUCLIST) , and the action list 
(ACLIST) . STMNT (' SIMULATE ' ) and STMNT (%' SEEDS ' ) initiate 
action to output a SIMULATE block and an RMULT card. EXPFUNC 
and NORMFUNC initiate output for exponential and normal 
distributions, if required. TMLOOP creates the timing loop. 

b. INITIALGPSS (Rule 2) 

The created segments initialize the GPSS and 
X-Vector random number counters GRNNO of MEMORY and XRNNO of 
MEMORY, and attribute LR of eight named records whose value 
is the number of the last attribute of that record. If the 
indicator XVSW of MEMORY is set, i.e., its value is other 
than zero, a call to the routine ZEROXV is made to initialize 
all elements of the X-Vector to zero. 

c. SELIST and STEMTITY (Rules 4, 5, 8) 

Rule 4- creates a copy of each stationary entity 
record in the IPD for further processing. The condition on 
the lef t (LC . LE . LASTREC) is common to all rules examining the 
various lists. The LC attribute is initially set to 11 in 
GPSSPROG and is incremented until it is equal to the at- 
tribute number pointing to the last entity on the list. When 
the condition is met, rule 5 then applies and no further 
processing is done, as a NULL segment is created. The at- 
tribute IPDP points to the original record in the IPD for 
later use in the X-Vector processing rules. 

Rule 8- creates an EQUCARD and a STMNT Vvhicl- will 
cause a STORAGE definition output unless the stationary 
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entity is a facility. However, a STORAGE will be assigned 
in the X-Vector for both a STORAGE and a FACILITY. An IPDP 
attribute pointing to the IPD record is also included. 

d. MELIST and MENTITY (Rules 6, 7, 9, 12) 

Rule 6- creates MENTITY, a copy of each mobile 
entity record. 

Rule 9- creates EQUCARD and TABLECARD. 

Rule 12- creates a STMNT for a GPSS TABLE 
definition and an X-Vector TABLE allocation. Presently ARGA 
is preset to tabulate Ml, the elapsed time from transaction 
generation to termination. ■ Values of the attributes LOWINT, 
INTWIDTH, NUMINT are presently set in the Massager. 

e. EQUCARD (Rule 11) 

Creates a STMNT for a GPSS EQU card that equates 
the value of an entity's IDNAME and its IDNO. There is no 
equivalent X-Vector output. 

f. EXPFUNC, NORMFUNC, DISTLIST, SUCLIST, FNDEF 

(Rules 14, 15, 16, 17, 18, 19, 20, 21, 22, 23) 

Create a FNDEF which in turn creates a STMNT 

segment for a FUNCTION definition. 

When the queuing problem requires exponential or 
normal distributions, records with a SUP of 'EXPON' or 
'NORMAL' are created and placed on the distribution list 
( ' DSTRLIST ' ) . The massager examines the distribution list 
and sets the indicators EXPOSED of MEMORY or NORMUSED of 
MEMORY when appropriate. If the indicators are present, then 
rules 14 and 16 create a FNDEF, a copy of the named recc 'ds 
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' EXPONREC ' or ' NORMREC ' , with the attribute IPDP pointing to 
these named records . 

Rules 18 and 20- create 2 FNDEF for each dis- 
tribution record and 2 successor descriptor records requiring 
a function definition. Both set IPDP attributes pointing 
to an IPD record. 

Rule 22- a condition on the left, the presence of 
an XYLAST attribute, eliminates the processing of segments 
with a SUP of 'EXPON' or 'NORMAL' created by rule 1, as 
exponential and normal distributions were already handled by 
rules 14 and 16. Segments from Rule 20 that do not require a 
FUNCTION definition are also passed over. The first STMNT 
segment created produces, ultimately, a GPSS function def- 
inition and the first elements of an X-Vector function al- 
location. The second STMNT segment is processed by rules 
at lower levels to output GPSS function follower cards and 
X-Vector X and Y coordinate elements. The value of ARGB 
is a copy of the named record 'ARGREC' which is given the 
attributes FNTYPE (function type) and NOPTS (number of points). 
The values of these attributes are used when processing at 
lower levels to produce a character and number, such as D2, 
that represents argument B of a function definition. 

g. DSTLIST and DISTDEF (Rules 24, 25, 26, 27) 

These rules examine the distribution list for a 
record representing a normal distribution and issue a STMNT 
to define an FVARIABLE for the distribution. 
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h. ACTLIST, ACTT, and ACT (Rules 28 through 36) 

Rule 28- creates ACTT, a copy of a specific 

action record from the IPD. The value of attribute IPDP of 
MEMORY is a pointer to the original action record. 

Rule 30- creates a STMInIT that is processed ul- 
timately to output a comment card that precedes each group 
of GPSS blocks representing an action. The segment ACT is 
later processed to produce a series of STMNT segments for 
issue of GPSS blocks or X-Vector allocations representing 
the action. 

Rules 31 through 38- process an action record and 
create a- series of STMNT segments representing a standard 
set of executable blocks for each particular type of action. 

Rule 31- represents the arrival of a mobile entity. 

Rules 32 and 33- examine action records for a SUP 
attribute in the set 'ACTIVITY'. Rule 32 handles the situ- 
ation in which the stationary entity is a STORAGE, and Rule 
33 is for a FACILITY. 

Rule 35- the action SEGMNT with a sup of 'LEAVE' 
creates segments for TABULATE, LEAVE, and TERI'IINATE blocks. 

i. SUCSTMNT (Rules 37, 38, 39) 

The records processed by these rules are a copy 
of the SUCC (successor) attribute of an action record. Suc- 
cessors may depend on some condition such as the availability 
of a facility or storage or the length of a line to deter- 
mine which of two or more actions are to take place. The 
SUP of the successor record determines the attributes o'" the 
STMNT segment created. A SUCSTMNT with a SUP of ' QTYP ’ 
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produces STMNT'S for TEST and TRANSFER block.: A SUP of 

'FTYP' or 'STYP' produces STMNT'S for GATE and TRANSFER 
blocks. If none of the above conditions is met, a STMNT for 
a TRANSFER block is created. 

j. TMLOOP (Rule 40) 

The STMNT segments created here will cause pro- 
duction of GENERATE and TERMINATE blocks and START and END 
cards in GPSS. GENERATE and TERMINATE block allocations 
will also be made in the X-Vector. However, STMNT segments 
with a SUP of 'START' or 'END' cause other processing, the 
details of which will be given in the explanations for rules 
119 and 120. 

k. STMNT (Rules 41 through 46) 

Rule 43- if ARGA points to a record with a SUP of 
'UNIFORM' the argument field of that STMNT requires ARGA and 
ARGB to completely describe the uniform distribution. The 
argument values are taken from the MEAN and RANGE attributes 
of the segment being processed. 

Rule 44- the same reasoning as in rule 43 applies. 
In this case ARGB points to a named record ' SNAREC ' and 
attributes NAM and NUM are assigned. Their values are output 
through rule 77 for GPSS and rule 145 for the X-Vector. 

Rule 45- tests the STMNT created by rule 38 to 
determine the value of MOD and the contents of the argument 
field for a GATE block. 

Rule 46- as mentioned previously, this rule 
creates segments GSTMNT or XSTMNT or both if the GPSSSW :>f 
MEMORY and XVSW of MEMORY indicators are set. The sarae 



38 



record is sent to GPSS and X-Vector rules for processing to 
produce their own particular output. 

2 . Lexology for encoding GPSS 

a. GSTMNT (Rules 47 through 51, 54) 

Rule 47- if the indicator NOCOPY is set, a GPSS 
statement is not produced. 

Rule 48- the presence of attribute XYLAST creates 
an XYOUT segment and initiates the output of the X-Y co- 
ordinates of a FUNCTION definition. 

Rule 49- prevents the output of a STORAGE 
definition for a FACILITY. 

Rule 50- in rule 35 ARGB of the segment was as- 
signed the value that a GPSS TABULATE block would have in 
ARGA. This rule moves the argument values to the left one 
place . 

Rule 51- the segment NEWLINEl creates an OUTPUT 
segment in rule 89 and causes the output to start in column 
1 of a new line each time it occurs. Any single symbol such 
as * that is separated by one or more spaces from the rest of 
the segments on the right side of a rule is printed out 
literally. The same action occurs for various rules in the 
GPSS morphology. Segment COLUMN 7 tabs the output to column 
7. Segment COMMENT becomes a copy of GSTMNT. 

Rule 52- the PHRASE rule is part of the English 
encoding rules and causes a printout of the value of at- 
tribute CHARS of comment. 
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Rule 53- utilizes another rule from the English 
encoding rules to output the comment prior to the group of 
GPSS blocks representing each action in the IPD. 

Rule 54- all the rest of the segments are pro- 
cessed by this rule which creates segments with attribute- 
value pairs representing the various fields of a GPSS state- 
ment. Segments NEWLINE2, COLUMNS, C0LUMN13, and C0LUMN19 
are editing segments. They cause a new line to be begun, 
start the label field in column 2, the operation field in 
column 8, the mod field in column 13 and argument field in 
column 19 . The attribute APTR is assigned the value of each 
argument attribute in turn. The attribute COMCNT of MEMORY 
and NCOM are used to determine when commas need to be output 
for missing arguments. 

b. ARGDH, LABFLD, MODFLD, and ARGFLD 

(Rules 55, 57, 59, 61) 

Rule 55- processes segments * that have attributes 
ARGD through ARGH. 

Rule 57 and 59- creates ARG segment with a DATA 
attribute equal to the LABL or MOD attribute of their segment. 

Rule 61- creates segments COMMAS and ARG with 
attributes NCOM and DATA, respectively. 

c. XYOUT and LINE (Rules 63, 64, 65) 

The object of these rules is to continue the 
processing required to output function X-Y pairs. The 
computed value of the attribute LAST of LINE limits the 
output to 4 pairs per line of output. 
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Rule 64- attribute DATA of ARG is set equal to a 
copy of the named record 'DECREC' which is given an attribute 
of NUM, the value of which is numerical or a record re- 
presenting one of the coordinates. This is done when LINE 
is a segment which is a copy of EXPONREC or NORMREC, and 
also to specify that the exponential or normal distribution 
coordinates are to be output as decimals, as 'DECREC' has a 
SUP of 'DECIMAL' . If the indicator EXPNORM is not set, the 
attribute DATA is then placed equal to the NUM of DATA. When 
four pairs of coordinates have been printed out, i.e., the 
condition LC is greater than LAST exists, rule 65 applies 
and starts the sequence over by creating an XYOUT segment. 

The sequence ends when XYLAST of LINE is exceeded. 

3 . Morphology for encoding GPSS 

a. OPFLD (Rules 67, 68) 

Processing the NAME segment causes a printed 
output of the value of its CHARS attribute. As the value of 
the NAME attribute of the named records 'TERMINAL' and 
'FVARIABLE' can only be 8 characters and the two words are 
9 characters, their operation fields must be put out this way. 

b. ARG (Rules 69, 70, 71) 

The FORTRAN routine GETYPE determines the TYPE of 
cell and the ARG rules create a PARG segment, which would be 
a record, for further processing, or a number segment that 
causes numerical printout, or a NAME segment which causes a 
printout of characters . 
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c. PARC (Rules 72 through 85) 

Processing of segments by these rules cause an 
output of arguments A through H of the GPSS block for various 
conditions on the left. 

d. COMMAS (Rule 86) 

Causes the output of a comma following each 
argument of the argument field except the last. If an 
argument is not required a comma is filled in for it. 

e. NEWLINEl, NEWLINE2, NEWLINE8, COLUMN?, C0LUMN8, 

C0LUMN13, C0LUMN19, NAME, NUMBER, and DECNUMB 

(Rules 88 through 98) 

These are terminal rules that cause output edit- 
ing, and output of integers, decimals and characters. At- 
tribute 11 specifies how many lines to skip, attribute 12 
specifies the column tab, attribute 13 the character output, 
attribute 14 integer output, and attribute 15 a decimal 
output. 

4 . Lexology for Encoding X-Vector 

a. XSTMNT (Rules 100 through 104, 107, 109, 110, 

118, 119, 120, 127) 

Rule 100- the four conditions on the left cause 
XSTMNT to go to null. Segments with a SUP of 'COMI'IENT' or 
'EQU' or 'SIMULATE' cause no output to the X-Vector. 

Rules 101 and 102- facilities are treated as 
STORAGES with a capacity of 1 by the simulator- so segments 
with a SUP of 'SEIZE' or 'RELEASE' are converted to the 
STORAGE associated statement 'ENTER' or 'LEAVE'. 
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Rule 103- initiates output of eight random number 
seeds to the X-Vector. The value of the attribute FX of 
MEMORY, at any time, points to a specific X-Vector element 
one less than the beginning of free storage. The attribute 
INDX of MEMORY is deleted to insure that FX of MEMORY will 
be incremented by 1 each time a seed is loaded into the 
X-Vector. FX then takes the value of the last element of the 
allocation. 

Rule 104- the two segments created here are 
processed further to produce one STORAGE and one QUEUE al- 
location. A QUEUE allocation is produced along with each 
STORAGE allocation. 

Rule 107- this rule creates segments that produce 
a TABLE allocation. Segment SETDIR is created by this rule 
and in rules 105, 106, 109, 118, and 127 to store pointers 
to allocations of each entity. Later these pointers will be 
inserted in a directory for each entity at the end of all 
STORAGE, QUEUE, TABLE FUNCTION, VARIABLE, and BLOCK al- 
locations. At that time a pointer to the directory will be 
inserted into its proper location in one of the first 32 
elements. The attribute DIR of SETDIR points to a list of 
pointers for each entity, in this case 'TABDIR'. When the 
segment SETDIR is processed in rules 135 and 136, the value 
of- the attribute LABL is incremented by 10 to give the at- 
tribute number of 'TABDIR' at which the allocation pointer 
is stored. The attribute LR of 'TABDIR' holds the value 
of the" highest numbered attribute in the record for la 
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use in transferring the pointers to their directory in the 
X-Vector. When all allocations are made, there may be un- 
assigned attributes in the list. An element is saved in the 
directory for the "missing" allocations as an allocation 
pointer's position in the directory provides an index to be 
used by the simulator to associate that entity with the various 
executable BLOCK arguments. This discussion of allocation 
pointer assignment was provided here to insure the continuity 
of the explanation rather than have it occur piecemeal in 
discussions of various rules. The values of attributes INDX 
and RIGHT of the X-Vector segments are the relative location 
in the allocation and the value to be placed in the right 
half of the element. The value of INDX is later added to the 
value of attribute FX of MEMORY to produce an absolute 

I 

X-Vector index in which to store the value of RIGHT. FX 
of MEMORY acts as a base address for each allocation. INDX 
will never have the value O'. Element 6 contains the width of 
table frequency classes, element 8 the number of frequency 
classes in the table, and element 9 the upper limit of the 
lowest interval. The simulator uses the other elements in 
the allocation to collect statistics during the siniulatic n . 

The above description of X-Vector attributes apply also to 
rules 105, 106, and to the segment XCODE in rule 109. The 
value of INDX of NXTALPTR is the relative location of the 
last element in the allocation. In this case, the value of 
ARGD was added to allow one element for each frequency class. 

Rule 10 8- processes the NXTALPTR segnient anc 
places the sum of the base address, the value of attribute 
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FX of MEMORY, and the relative address, the value of INDX, 
in FX of MEMORY. This rule processes segments from rules 
105, 106, 107. 

Rule 109- segments are created that produce the 
first 5 elements of a FUNCTION allocation. The general ex- 
planation in rule 107 applies here. Elements 2 and 4 of this 
allocation require the codes -23 and -25 in the left half 
of elements 2 and 4. The 2 XCODE segments are created with 
attributes INDX and LEFT to cause entry of the above codes 
in elements 2 and 4. XCODE rules later make the value of 
the LEFT attribute negative. Therefore, the initial assign- 
ment is always a positive number. XARG segments are pro- 
cessed like ARC segments in rules 69 and 70. At later stages 
of processing, the value of the attribute INDX in rule 107 is 
placed into INDX of MEMORY to be added to the value of FX of 
MEMORY. Here, INDX of MEMORY is directly assigned a value. 

Rule 110- the VALTYPE segment causes further pro- 
cessing to put the values 0 or 1 in the left and right halves 
of element 6 of a function allocation to signify whether the 
X and Y coordinates are integers or decimals . Values of the 
XXYOUT attributes are used in the processing of each at- 
tribute of the segment to extract X and Y values. The value 
of NOPTS is the number of pairs in the FUNCTION. The value 
of XALL, in this instance, is the relative location of each 
X value in the allocation and, added to the value of NOPTS, 
provides a relative location for each Y value. 

Rule 118- segments that produce a VARIABLE l- 
location are created here. SETDIR is as described in r le 
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107. In the output of this and BLOCK allocations, rule 127, 

FX of MEMORY is incremented by 1 to locate absolutely each 
element in the allocation. The value of attribute INCREMENT 
is added to FX of MEMORY ’to locate the first allocation 
element. Sx±>sequent incrementing is done in a loop. So that 
the value of INDX of MEMORY will not give erroneous locations, 
the attribute is erased. 

Rule 119- these segments process the START state- 
ment. For the X-Vector, a mode code of 1 is put into element 
1. The FORTRAN simulation routine takes certain initializing 
actions when a 1 is detected here. The code of 1 represents 
the action SIMULATE/START as opposed to RESET/START or 
CLEAR/START or just START. A more complete description is 
provided in Ref. 9. XVECTOR places the value of argument A 
of a START block in X-Vector element 2. The value represents 
the number of time elements that the simulation routine is 
to run. It is presently 1. 

Rule 120- when all allocations are completed, 
this rule creates segments for all entities that are pro- 
cessed to build the entity directories and insert the proper 
values into elements 1 through 32. TRANSPTR causes the index 
of the last element assigned a value to be put into element 
25 of the X-Vector. It locates the remaining free storage 
of the X-Vector, in which the simulation routine will build 
transaction allocations for the mobile entities that move 
through the model. 

Rule 127- this rule processes all segments ^ t- 
presenting executable blocks, plus one that is not. SL JIR 
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is as described for rule 107. A test on the LABL attribute 
is done to determine whether the segment being processed is 
one representing the first block of a group that represents 
an action. The BLOKNO attribute is added to the original IPD 
action record for future reference. The value of BLOKNO will 
later be loaded into an element representing a block argu- 
ment that specifies to which action a transfer must occur. 

The XVECTOR segment causes a code identifying the block to 
be loaded into the left half of the allocation 1st element 
and a pointer to the original action record into the right 
half. 

b. XARGAC, XARGDH, XMODFLD , and XARGFLD 

(Rules 128, 129, 131, 132, 133) 

Rules 128 and 129- XARGFLD segments are treated 
in a manner similar to the ARGFLD segments of rules 54 and 
55. The value of attribute APTR is the value of the ARGA 
through ARGH attributes assigned in the semology. The value 
of NCOM is used to skip allocation elements if an argument 
is not present, similar in manner to the output of commas 
for arguments not present in a GPSS block. Segments with a 
SUP or ' RMULT ' , 'SELECT' , or 'TABLE' have more than three 
arguments so the XARGDH rule takes care of ARGD through ARGH 
attributes. In rule 128 the segment XMODFLD is created to 
fill the last element of any block allocation with a code of 
-33 in the left half and a code in the right half depending 
on the value of the MOD attribute assigned in the semology. 

Rule 131- when the value of the last seed i 
placed in element 10 FX of MEMORY points to the free storage 
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available for entity allocations, normally a storage 
allocation . 

Rule 132- the value of RIGHT depends on the value 
of the MOD attribute. If there is no MOD attribute, RIGHT 
then equals the value of attribute XMOD which comes only 
from segments with a SUP of 'GENERATE' or 'ASSIGN' in rule 
31. A sup of 'GENERATE' places a pointer to a mobile entity 
in the right half. A sup of 'ASSIGN' places a code in the 
right half that signifies the operation to be accomplished 
between its argument values. At present, the only code is a 
2, which signifies replacement. 

c. STORAL and QALL (Rules 104, 105) 

The explanation in rule 107 applies to these 
rules also. Element 2 of a STORAGE allocation is the number 
of available units, and element 10 holds a pointer to the 
storage IPD record in the right half. Element 8 of a QUEUE 
allocation holds a pointer to the STORAGE IPD for which the 
QUEUE is established. 

d. XXYOUT, NXARG, VALTYPE , and YCHK 

(Rules 111 through 116) 

Rules 110 and 111- in order to handle the stan- 
dard exponential and normal distributions, attribute DATA 
points to copy of the named record ' DECREC ' with a SUP of 
'DECIMAL'. The attribute NUM contains the value of the 
particular X coordinate. The value of attribute INDX of 
MEMORY is set to the relative location in the FUNCTION al- 
location. If the indicator EXPNORM is not set, then D?/ \ 
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points to the record that represents the FUNCTION. The NXARG 
rule does the same as above for the Y coordinate. 

Rule 113- FX of MEMORY is set to the last element 
of the FUNCTION allocation. However, if the function is 
continuous, i.e., attribute DORC has a value of "C", ad- 
ditional elements must be added to the allocation for slope 
values. This is accomplished by adding the value of NOPTS 
to FX of memory . 

Rules 113, 114, and 115- the explanation for rule 
109 explains the use of these rules. All X-Y values of the 
standard exponential and normal distributions are considered 
to be decimal. The first coordinates of other segments 
representing functions are examined by checking the values 
of attributes 101 and 102 to determine whether they have a 
SUP of 'DECIMAL'. 

e. PTRALL, PTRDIR, TRANSPTR, STUFBACK 

(Rules 121, 122, 124, 125) 

Rules 121 and 122- Rule 121 creates PTRALL to 
first set the pointer to the directory, then assigns the 
number of entities, and, finally, rule 122 sets up the 
directory . 

Rule 124- sets the pointer to the final free 
storage, and sets an arbitrary number of parameters in 
element 24. 

Rule 125- the value of the previously set at- 
tribute BLOKNO of the original IPD action record is placed 
in the proper X-Vector element. 
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5 . Morphology for Encoding X-Vector . 

a. XARG (Rules 137, 138) 

The basic principles used are the same as that of 
rules 69 and 70, but the segments created are XPARG or XVECTOR. 
Since no characters are put into the X-Vector, XARG with no 
condition on the left goes to null. 

b. XPARG (Rules 140 through 152) 

Rule 140- the segments processed by this rule 
come from attribute ARGB of the STMNT segments created by 
the SUCSTMI-JT rules of the semology. ARGB represents the 
action a transaction will transfer to absolutely or on meeting 
some condition. However, that action record may not have 
been processed yet. In any event, there is not yet any way 
to store a block number in the X-Vector to which a trans- 
action must transfer. This rule then does the next best 
thing. It stores a pointer to the original IPD action record 
in the X-Vector location that would normally hold a block num- 
ber, and the value of the location of that element is stored 

as the value of an attribute in the named record ' BACKSTUF ' . 
There may be a number of X-Vector elements with pointers to 
the same action record, as a transaction could transfer ■ o a 
group of blocks representing an action from a number of other 
actions . 

Rule 141- an entity's identification number is 
stored in an element of a block allocation. 

Rule 142- processes a segment with a SUP of 
'DECIMAL' to cause a decimal output to an X-Vector eleme t. 

The first 3 segm.ents created, i.e., OUTPUT, NUMBER, and 
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DECNUMB are created to output at the terminal the decimal 
value and the X-Vector location it is going to for checking 
purposes. The NULL segment stores the value of the X-Vector 
element in the attribute IX. The value of XV is the decimal 
value to be stored. A call to routine PUTFPX stores the 
value of XV at X-Vector location IX. 

Rule 143- a segment in the set 'ABSTIME' requires 
a check to see if its units and the units of attribute 
TIMUNIT of MEMORY are the same. Creation of TIMARG causes 
further processing to do this. As the TIMARG rules are used 
jointly by the X-Vector and GPSS morphological rules, the 
indicator XVSW is set here to indicate to the TIMARG rules 
that an X-Vector segment is to be created to cause an output 
vice a number segment for the GPSS rules. 

Rule 144- a segment in the set 'QUANVAL' causes 
an output of an integer. 

Rule 145- a segment with a SUP of 'SNAREF' and a 
NUM attribute comes from rule 44 and causes an output of 22, 
the SNA code for FN,and the FN number. 

Rule 146- this rule processes a segment record 
set in ARGA of rule 37 and causes an SNA code output of 
12 (Q) or 13 (QA) . 

Rule 147- this segment originates in ARGB of rule 
35. An output of an SNA code of 1(P) and the P number occurs. 

Rule 148- the segment processed originates in 
attribute ARGA of rule 35 and causes an output of SNA code 
3(MP) and a value of 1. 
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Rule 149- the segment processed originates in 
attribute ARGA of rule 22 and causes an output of SNA code 
26 (RN) and a number to specify the specific seed. 

Rule 150- processing a segment with a SUP of 
'NORMAL' causes an output of SNA code 24 (V) and the V number. 

Rule 151- the segment processed here originates 
at attribute ARGA of rule 26. 

Rule 152- processing of a segment with an XYLAST 
attribute causes an output of SNA code 22 (FN) along with the 
FN number. 

c. XCODE and X-Vector (Rules 153, 154, 155, 156) 

Rule 153- the simulation routine requires that all 
integer codes placed in the left half of an X-Vector element, 
except a pointer to an IPD be negative. This rule makes the 
value of attribute LEFT negative. 

Rule 154- the value of the attribute INDX is the 
relative location of an element within an allocation. Only 
the value of attribute INDX of MEMORY is used in rule 154. 

The value of INDX is passed to INDX of MEMORY and the at- 
tribute INDX is erased. 

Rule 155- If XVECTOR has no attribute IX, one is 
added and its value is the sum of FX of MEMORY and INDX of 
MEMORY. If there is no attribute INDX of MEMORY then FX of 
MEMORY is incremented by one and FX acts as a pointer to an 
element, not an allocation base address. This technique is 
used in outputting VARIABLE and BLOCK allocations. 
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Rule 156- the first four segments, i.e., OUTPUT, 
NUMBER, NUMBER and NUMBER are presently created to output 
at the terminal, on a new line, the values placed in the 
left and right half of an X-Vector element and the X-Vector 
element number for checking purposes. This line of output 
comes out just below the equivalent GPSS statement output. 
Actions taken at the creation of the NULL segment are similar 
to those of rule 142 except that values are placed into the 
left and right halves of an X-Vector element. Either or 
both values may be zero. The routines PUTLX and PUTRX are 
called to accomplish the action. 

d. SNAS (Rules 157, 158) 

Rule 157- each argument in a BLOCK allocation 
occupies a unique position in the allocation. Therefore, 
even if the argument is not filled, the allocation must 
assign an element. The values of attributes NSNA and SNACNT 
of MEMORY are used in conjunction with each other to increment 
the value of FX of MEMORY by 1 for each missing argument 
within a group of arguments. No elements are assigned for 
missing arguments at the end of the allocation. 

e. TIMARG and TNUMBER (Rules 159 through 164) 

Rules 159 through 164- this set of rules is used 

by both the BPSS and X-Vector morphological rules to adjust 
the value of problem time parameters to conform to the problem 
basic .time unit. For instance if the basic time unit were 30 
seconds and the problem were to run for 60 minutes a figure of 
120 basic time units would be used in the timing loop. n 
rules 159 and 160 an XVSW attribute is created if the X\ .7 
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indicator is set in the segment being processed. Otherwise, 
processing is the same in rules 159 through 162. Once the 
time figure has been adjusted the TNUMBER rules create 
X-Vector or NUMBER segments depending on whether attribute 
XVSW is set. 
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V. CONCLUSIONS AND RECOMMENDATIONS 



The objective of this thesis stated in the Introduction 
was met. The link between the simulation routine and its 
source data, the IPD, is now complete and opens a whole new 
realm of further development possibilities. In integrating 
the GPSS and X-Vector rules , greater care had to be taken to 
conform to the three stratificational levels described by- 
Lamb. The resulting rule module had a common semology, but 
separate lexologies and morphologies . 

Further development of NLPQ lies in exploiting the fact 
that the link has been made between the IPD and the simu- 
lation routine. Future research should concentrate on how 
best to conduct the communication between the two in an 
interactive mode to perform simulation analyses "On-Line". 

This would necessarily involve a determination of the fol- 
lowing items: 

1. What questions would be asked about the 
problem? 

2. What output should be expected from the 
simulation? 

3. What form would it take, tabular or English 
text? 

4. How may the clear, reset, or restart 
capabilities of a GPSS program be implem nted? 
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5. How can the program be rerun with changed 
parameters? 

6. How are the results of various simulations to 
be compared? 

The primary goal should be to determine the best way in 
which to perform queuing simulations in a fully interactive 
mode at the terminal, developing techniques and methods that 
could be applied to a more general system. 
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APPENDIX A 



C 

3100 



C 

3110 



C 

3120 



C 

3130 



C 

3140 



C 

3150 



C 

3160 



C 

3170 



C 

3180 



C 

3190 

3195 



LISTING OF ROUTINES 



GETYPE 

L0CA9 = L0C(A9,SEGMNT) 

CEL = CELL(L0CA9) 

ADDR = TYPE 
TYPE = 0 

CELL(L0CA9) = CEL 
GO TO 1200 
INTEGER*2 XHWI4) 

INTEGER*4 XFW( 2) ,X( 300) 

REAL*4 XFFW(2) 

REAL=^'8 XDW 

EQUIVALENCE { XDW , XFFW , XFW , XHW ) 

DATA AIX/8/,AVX/9/ 

PUTX 

X(HVAL(AIX,SEGMNT) ) = HVAL { AVX , SEGMNT ) 

GO TO 1200 



IX = HVALIAIX, SEGMNT) 

XFW( 1) = X(IX) 

XHW(l) = HVALI AVX, SEGMNT ) 
X(IX) = XFW(l) 

GO TO 1200 



IX = HVAL( AIX, SEGMNT) 
XFWd) = X(IX) 

XHW(2) = HVAL( AVX, SEGMNT) 
X(IX) = XFWd) 

GO TO 1200 



XFFW(l) = 0.001*HVAL(AVX, SEGMNT) 
X(HVAL{ AIX, SEGMNT) ) = XFW(l) 

GO TO 1200 



XFWd) = XIHVAUAIX, SEGMNT) ) 
CALL HST0RE(XHW(2) , AVX, SEGMNT) 
GO TO 1200 



XFWd) = X(HVAL( AIX, SEGMNT ) ) 
CALL HSTORE(XHWd) , AVX, SEGMNT) 
GO TO 1200 



GO TO 3150 



PUTLX 

PUTRX 

PUTFPX 

GETX 

GETLX 

GETRX 



GETFPX 

XFWd) = X(HVAL(AIX, SEGMNT) ) 

VX = lOOO.O^XFFWd ) 

CALL HSTOREIVX, AVX, SEGMNT) 

GO TO 1200 

ZEROXV 

DO 3195 IX = 1,300 
X{ IX) = 0 
•GO TO 1200 
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APPENDIX B 



NAMED 

•RECl' 

• REC2' 

• REC3' 

•REC4' 

• REC5' 

•REC6* 

•REC7* 
• REC8' 

•RECll 

•REC12 

•REC13 

•REC14 

•REC15 

•REC16 

•REC17 

•REC18 

•REC19 

•REC20 

•REC21 

•REC41 
•REC42 
• REC43 



•REC44 

•REC45 

•REC46 

*REC47 

•REC48 



ANOTHER SAMPLE PROBLEM(THE HARBOR PROBLEM) 



NAMED RECORDS DEFINING THE HARBOR PROBLEM IPD. 



RECORDS: 

< ' ARRI V , I DNO=l , SUCC=' REC2 ' , AGENT= • REC 1 1 ' , 

LOCATION='REC71' , IETM='REC41 • , ASND I STR= • REC47 • ) 

( • UNLOAD* , IDNO = 2t PRED= 'REC 1* , SUCC= • R EC 61 • , 
AGENT='REC11 • ,GOAL = * REC13* ,LOCAT ION= ' REC72* , 
DURATION=* REC42* ) 

( ' UNLOAD* , IDNO=3,PRED= *REC2* , SUCC= * R EC 62 » , 
AGENT=*REC15* ,G0AL=*REC13* ,LOCAT ION=* REC74* , 
DURATION=*REC44* ) 

( • UNLOAD* , IDN0=4,PRED= *REC2' , SUCC= * R EC62 * , 
AGENT='REC17* ,G0AL = *REC13* ,LOCATION=* REC75* , 
DURATION=* REC45* ) 

( ' UNLOAD* , IDNO=5tPRED=* REC2 * , SUCC= * R EC 62 * , 
AGENT='REC19* ,G0AL='REC13* ,LOCATION=* REC76* , 
DURATION=* REC46* ) 

(' LOAD* ,IDN0=6,PRED=*REC96* , SUCC=* REC7 • , 

AGENT= •RECll*,GOAL='REC13* ,LOCATI ON= * REC72* , 
DURATION=* REC210 * ) 

( • WAIT* ,IDN0=7,PRED=*REC97* ,SUCC=* REC8* , 

AGENT= *REC11* , LOCATI ON= • REC77* , DURAT I ON= • R EC8 1 • ) 
(• LEAV* t IDN0=8,PRE0=*REC7',AGENT=*REC11* , 

LOCATI ON=* REC71* ) 

* ('SHIP* , IDNO=l,CONSUMP=*REC212*, I DNAM E='*SHIP" , 

CLASATR='COLOR * ) 

* ( • PORT *, IDNO=2,QUANTITY=l, STORIND=l, CAPACITY^ 

* REC221 * , I DNAME=" PORT" ) 

' ( 'CARGO* , IDNO=3, I DNAME="C ARGO" ) 

* { * DOCK* , IDN0=4,L0CATI0N=*REC73* ,QUANTITY=3, 

CAPACITY = * REC212* , STORIND=l, I DN AM E=" DOCKS" ) 

* ( • SHIP* , IDNO=5,QUANTITY=*REC205* ,COLOR=* GREEN* , 

STRUC=*REC11* , IDNAME="GSHIP" ) 

* { • PIER', I DN0=6, LOCATI ON=*REC73* ,QUANTITY=2, 

CAPACITY=*REC212' , STORIND=l, I DNAME=" P I ERS" ) 

' ('SHIP', IDNO=7,QUANTITY='REC207*,COLOR=*RED*, 
STRUC='REC11' , IDNAME="RSHIP") 

' (' DEPOT' , IDNO=8,LOCATION=* REC73* ,QUANTITY=1 , 

CAPACITY = * REC220' ,STORIND=l, I DNAM E=" DEPOT" ) 

' ( ' SHIP ' , IDN0=9 ,QUANTITY=' REC208' ,COLOR=* BLUE' , 

STRUC= 'REC 11' , IDNAME="BSHIP", INTWIDTH=50, 

NUMI NT=22 , LOW I NT=2 00 ) 

' { ' BARGE' , IDNO= 10, LOCAT I 0N= ' R EC73 ' , QUANTITY=1 , 

CAPACITY=*REC212', I DNAM E="BARGE " ) 

' { 'HARBOR' , IDN0=11 ,L0CATI0N='REC73* , QUANT IT Y=l. 

ST0RIND=1, CAPACITY=' REC221* , I ONAME="HRBR" i 

' ('UNIFORM' ,MEAN=' REC201' , RANGE= ' REC202 ' ) 

' ( 'NORMAL ', ME AN='REC43' ,STDEV=' REC48' ) 

' CTYPTABL' ,FNARG= 'REC203' ,DORC="D", 

XYLAST=106 ,3101 = * RECl 5' , 31 02 = ' REC2 13 ' , 
3103=*REC17* ,3104='REC214' ,3 105= * REC 19 * , 

3106=' REC201' ) 

' ( * NORMAL' ,MEAN = ' REC2 02' , STDE V= * REC206 ' ) 

' ( * EXPON' ,MEAN= 'REC202* ) 

' (' EXPON* ,MEAN=' REC209* ) 

* ( * TYPDIST* ,PNUM=* REC212* , FNARG = * REC2 11 * , 

DORC="D", XYLAST=106, 3101=*REC215* , 3102= ' REC 15 ' , 
3103=* REC216* , 31 04= * REC 1 7 * , 3105= * R EC2 1 7 * , 
3106=*REC19* ) 

* CTYPTABL* ,FNARG=*REC203*,DORC="D", 

XYLAST=106,3101 = *RfcC15* ,3102 = * REC218 » , 

3103=* REC 17* ,3104=*REC202* ,3 105= * REC 19* , 

3106 = * REC209' ) 
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• REC61 • 



• REC62' 



•RECTI' 
' REC72' 
• REC73' 
•REC74' 
•REC75' 
•REC76* 
•REC77' 

' REC81 • 

MOBLIST 

STALIST 



ACTNLIST 



DSTRLIST 



SCSRLIST 



REC96* 

REC97' 



•REC201 
• REC202 
•REC203 
•REC204 
• REC205 
•REC206 

• REC207 
•REC208 
•REC209 
' REC210 
•REC211 
•REC212 
•REC213 
•REC214 
•REC215 
•REC216 
•REC217 
•REC218 
• REC219 
•REC220 
•REC221 
•REC222 

SET MEM 



{ • PTYP* , SUCARG=*REC203* ,XYLAST=106,ai01= 'REC15' , 
ai02='REC3» ,ai03=' REC17' ,ai04='REC4* , 
ai05='REC 19* , ai06= 'REC5* ,FNARG = * REC2 03' ,DORC = "D" 
(' FRACTNL* ,SUCARG= 'REC211' ,XYLAST=104, 
ai01='REC219'-,ai02 = * REC6' ,ai03 = ' REC217* , 
ai04='REC7', FNARG='REC211* ,DORC="D") 

{ ' AT* ,LOCOBJ='REC12* ) 

('AT',L0C0BJ='REC14' ) 

{ • IN' ,LOCOBJ = ' REC12' ) 

I 'AT' ,L0C0BJ='REC16' ) 

( • AT' ,LOCOBJ='REC18' ) 

( ' AT' ,LOCQBJ = f REC20' ) 

( 'IN' ,L0C0BJ = 'REC21' ) 

(•CONDI* ,CONDENTY=* REC20* ) 

CRECLIST* ,LASTREC=14, ai 1= • R EC 1 1 ' , ai 2= ' REC 15 • , 
ai3='REC17* ,ai4='REC19* ) 
CRECLIST',LASTREC=17,ail='REC12' ,ai2='REC13' , 
ai3='REC14* , ai4='REC16* ,ai5= 'REC18' , 
ai6='REC20* ,ai7='REC21* ) 

( 'RECLIST' ,LASTREC = 18,ail='RECl* ,312=' REC2* , 
ai3='REC3* ,ai4='REC4* ,315= 'REC5* ,316='REC6' , 
ai7='REC7' ,318=' REC8' ) 

CRECLIST* ,LASTREC=18,311='REC41' ,312='REC42' , 
ai3='REC43' ,ai4='REC44' , 3 1 5= ' R EC45 ' , 316='REC46' , 
ai7='REC47* ,318=' REC48* ) 
(•RECLIST',LASTREC=15,ail='REC2' ,312 = 'REC61' , 
ai3='REC62' ,314=' REC7' ,315 = ' REC8 ' ) 

( • PREDLIST' ,LASTREC=13, ail='REC3' ,312='REC4' , 
ai3='REC5* ) 

( • PREDLI ST* , LASTREC=14,311 = * REC3* ,312=' REC4* , 

313= 'REC 5* ,ai4='REC6* ) 

( • HOUR* ,NUM=5) 

( • HOUR' ,NUM=1) 

( • PARAMNO* ,NUM=1 ) 

( • DAY* ,NUM=4) 

I • PERCENT' ,NUM=20) 

( • MINUTE* ,NUM=15) 

I ' PERCENT' ,NUM=30) 

( • PERCENT' ,NUM=50) 

( 'MINUTE* ,NUM=90) 

( ' HOUR' ,NUM=2) 

I • RANDM* ) 

( • UNIT',NUM=1) 

( • HOUR' ,NUM=3) 

( • HOUR* ,NUM=4) 

( ' DECIMAL' ,NUM= 200) 

(• DECIMAL* ,NUM=500) 

( • DECIMAL* ,NUM=1000) 

( 'MINUTE* ,NUM=30) 

( • DECIMAL* ,NUM=400) 

( ' UNIT* ,NUM=4) 

('UNIT', NUM=1000) 

( • MINUTE' ,NUM=1 ) 

(PROBTIME(MEM)= 'REC204' ,TIMUNIT(MEM) = * REC222* ) 



UCELLS: 

:END OF FILE: 
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ENCODED ENGLISH PROBLEM DESCRIPTION 



THE SHIPS ARRIVE AT THE PORT. THE TIME BETWEEN 
ARRIVALS OF THE SHIPS AT THE PORT IS UNIFORMLY DISTRIBUTED, 
WITH A MEAN OF 5 HOURS AND A HALF-RANGE OF 1 HOUR. 20 
PERCENT OF THE SHIPS ARE GREEN, 30 PERCENT ARE RED, AND THE 
REST ARE BLUE. AFTER ARRIVING AT THE PORT, THE SHIPS UNLOAD 
CARGO AT A DOCK IN THE PORT. THERE ARE 3 DOCKS IN THE PORT. 

THE TIME FOR THE SHIPS TO UNLOAD CARGO AT A DOCK IN THE 
PORT IS NORMALLY DISTRIBUTED, WITH A MEAN OF 3 HOURS FOR THE 
GREEN SHIPS, 4 HOURS FOR THE RED SHIPS, AND 5 HOURS FOR THE 
BLUE SHIPS AND A STANDARD DEVIATION OF 30 MINUTES FOR THE 
GREEN SHIPS, 1 HOUR FOR THE RED SHIPS, AND 90 MINUTES FOR 
THE BLUE SHIPS. AFTER UNLOADING CARGO AT A DOCK IN THE 
PORT, THE GREEN SHIPS UNLOAD CARGO AT A PIER IN THE PORT, 

THE RED SHIPS UNLOAD CARGO AT THE DEPOT IN THE PORT, AND THE 
BLUE SHIPS UNLOAD CARGO AT THE BARGE IN THE PORT. THERE ARE 
2 PIERS IN THE PORT. THE TIME FOR THE GREEN SHIPS TO UNLOAD 
CARGO AT A PIER IN THE PORT IS NORMALLY DISTRIBUTED, WITH A 
MEAN OF 1 HOUR AND A STANDARD DEVIATION OF 15 MINUTES. 

AFTER UNLOADING CARGO AT A PIER IN THE PORT, 40 PERCENT OF 
THE SHIPS LOAD CARGO AT A DOCK IN THE PORT FOR 2 HOURS, AND 
THE REST WAIT IN THE HARBOR IN THE PORT UNTIL THE BARGE IS 
AVAILABLE. THE CAPACITY OF THE DEPOT IS 4 SHIPS. THE TIME 
FOR THE RED SHIPS TO UNLOAD CARGO AT THE DEPOT IN THE PORT 
IS EXPONENTIALLY DISTRIBUTED, WITH A MEAN OF 1 HOUR. AFTER 
UNLOADING CARGO AT THE DEPOT IN THE PORT, 40 PERCENT OF THE 
SHIPS LOAD CARGO AT A DOCK IN THE PORT FOR 2 HOURS, AND THE 
REST WAIT IN THE HARBOR IN THE PORT UNTIL THE BARGE IS 
AVAILABLE. THE TIME FOR THE BLUE SHIPS TO UNLOAD CARGO AT 
THE BARGE IN THE PORT IS EXPONENTIALLY DISTRIBUTED, WITH A 
MEAN OF 90 MINUTES. AFTER UNLOADING CARGO AT THE BARGE IN 
THE PORT, 40 PERCENT OF THE SHIPS LOAD CARGO AT A DOCK IN 
THE PORT FOR 2 HOURS, AND THE REST WAIT IN THE HARBOR IN THE 
PORT UNTIL THE BARGE IS AVAILABLE. AFTER LOADING CARGO AT A 
DOCK IN THE PORT, THE SHIPS WAIT IN THE HARBOR IN THE PORT 
UNTIL THE BARGE IS AVAILABLE. AFTER WAITING IN THE HARBOR 
IN THE PORT, THE SHIPS LEAVE THE PORT. 

THE SIMULATION IS TO BE RUN FOR 4 DAYS, USING A BASIC 
TIME UNIT OF 1 MINUTE. 



GPSS/X-VECTOR OUTPUT. 



SIMULATE 

RMULT 277,423,815,121,655,531,999,813 



3 


0 277 




4 


0 423 




5 


0 815 




6 


0 121 




7 


0 655 




8 


0 531 




9 


0 999 




10 


0 813 




PORT 


EQU 


2 , S , Q 


2 


STORAGE 


1000 


34 


0 1000 




42 


0 6397 




50 


6397 0 




CARGO 


EQU 


3,T 


52 


0 1 




60 


0 4929 




68 


4929 0 




DOCKS 


EQU 


4,S,Q 


4 


STORAGE 


3 


70 


0 3 




78 


0 3642 




86 


3642 0 




PIERS 


EQU 


6 , S , Q 



60 



6 STORAGE 

88 0 2 
96 0 3672 

104 3672 0 

DEPOT EQU 

8 STORAGE 

106 0 4 

114 0 6979 

122 6979 0 

BARGE EQU 

124 0 1 

132 0 4082 

140 4082 0 

HRBR EQU 
11 STORAGE 

142 0 1000 

150 0 5130 

158 5130 0 

GSHIP EQU 
5 TABLE 

164 0 1 

166 0 2 
167 0 1 

RSHIP EQU 

7 TABLE 

175 0 1 

177 0 2 

178 0 1 

BSHIP EQU 

9 TABLE 

186 0 50 

188 0 22 
189 0 200 

1 FUNCTION 

212 -26 1 
213 -23 6141 

215 -25 0 

216 1 24 

0.0, 0.0/. 100, .104/. 200 , .222/ .300, .355/ 

.400, .509/. 500,. 690/. 600,. 91 5/. 7 00, 1.2 00/ 

.750, 1.390/. 800, 1.60 0/. 840, 1.830/. 882, 2. 120/ 

.9 00, 2. 300/. 920, 2. 520/. 940, 2. 8 10/ .950,2.990/ 
.960,3.200/. 97 0, 3. 500/ . 980 , 3 . 900/ . 99 0 , 4. 600/ 
.995,5.300/ .998, 6. 200/. 999, 7.000/1.000,8.000/ 

217 1 1 

218 0.0 

242 0.0 

219 .100 

243 .104 

7 

240 .999 

264 7.000 

241 1.000 

265 8.000 

2 FUNCTION RN2,C29 

290 -26 2 

291 -23 4421 

293 -25 0 

294 1 29 

0.0,-3.000/ .012, -2. 250/. 027, -1.930/. 043,-1.720/ 
.062,-1. 540/. 034, -1.3 80/. I 04, -1.260/. 131 ,-1.120/ 
.158,-1.000/ . 187,-. 890/. 230,-. 740/. 267 ,-.620/ 
.334, -.430/. 432, -.170/ .500, 0 .0/ . 568, . 170/ 

.666, .43 0/. 732,. 62 0/. 770,. 740/ .8 13,. 890/ 

.841, 1.000/. 869, 1.120/. 896, 1.260/. 916, 1. 380/ 
.938, 1.540/. 957, 1.720/. 973, 1.930/. 98 8, 2.250/ 
1.000,3.000/ 

295 1 1 

296 0.0 

325 -3.000 



2 



8,S,Q 

4 



10,F,Q 



11,S,Q 

1000 



5,T 

Ml, 1, 1,2 



7,T 

Ml, 1, 1,2 



9,T 

Ml, 200, 50, 22 



RN1,C24 



61 



297 .012 

326 -2.250 



z 

323 .988 

352 2.250 

324 1.000 

353 3.000 

3 FUNCTION P1,D3 

383 -1 1 

384 -23 5569 

386 -25 0 

387 2 3 

GSHIP, 180/RSHIP, 240/BSHI P, 300/ 



388 


0 


0 


389 


0 


5 


392 


0 


180 


390 


0 


7 


393 


0 


240 


391 


0 


9 


394 


0 


300 



4 FUNCTION RN3,D3 



395 


-26 


3 


396 


-23 


3 


398 


-25 


0 


399 


2 3 





.200,GSHIP/. 500, RSHIP/ 1.000, BSHI P/ 

400 . 1 0 

401 .200 

404 0 5 

402 .500 

405 0 7 

403 1.000 

406 0 9 

5 FUNCTION P1,D3 

407 -1 1 

408 -23 6043 

410 -25 0 

411 2 3 

GSHIP, 30/RSHIP,60/BSHIP, 90/ 



412 


0 


0 


413 


0 


5 


416 


0 


30 


414 


0 


7 


417 


0 


60 


415 


0 


9 


418 


0 


90 



6 FUNCTION PI, 03 



419 


-1 


1 


42 0 


-23 


4866 


422 


-25 


0 


423 


2 


3 



GSHIP, ACT3/RSH IP, ACT4/B SHIP, ACT5/ 



424 


0 


0 


425 


0 


5 


428 


0 


4010 


426 


0 


7 


429 


0 


6576 


427 


0 


9 


430 


0 


5080 


7 FUNCTION RN4,D2 


• 431 


-26 


4 


432 


-23 


6582 


434 


-25 


0 


435 


2 


2 


400,ACT6/1. 


000, ACT7/ 


436 


1 


0 


437 


.400 


439 


0 


5736 


438 


1. 000 


440 


0 


7067 
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1 FVARIABLE FN3+FN5*FN2 

441 -22 3 

442 -22 5 

443 -22 2 

444 -30 3 

445 -30 1 

446 -25 0 

2 FVARIABLE 60+15*FN2 

447 0 60 

448 0 15 

449 -22 2 

450 -30 3 

451 -30 1 

452 -25 0 

* THE SHIPS ARRIVE AT THE PORT. 

GENERATE 300,60 

453 1 3901 

454 0 300 

455 0 60 

456 -33 6155 

ASSIGN 1,FN4 

457 4 3901 

458 0 1 

459 -22 4 

460 -33 2 

ENTER PORT 

461 6 3901 

462 .0 2 

463 -33 0 

THE SHIPS UNLOAD CARGO AT A DOCK. 
ACT2 QUEUE DOCKS 

464 8 3374 

46 5 0 4 

466 -33 0 

ENTER DOCKS 

467 6 3374 

46 8 0 4 

469 -33 0 

DEPART DOCKS 

470 9 3374 

471 0 4 

472 -33 0 

ADVANCE VI 



473 2 3374 




474 -24 1 




475 -33 0 




LEAVE 


DOCKS 


476 7 3374 




477 0 4 




478 -33 0 




TRANSFER 


,FN6 



479 3 3374 

481 -22 6 

482 -33 0 

THE GREEN SHIPS UNLOAD CARGO AT A PIER. 
ACT3 QUEUE PIERS 

483 8 4010 

484 0 6 

485 -33 0 

ENTER PIERS 

486 6 4010 

487 0 6 

488 -33 0 

DEPART PIERS 

489 9 4010 

490 0 6 

491 -33 0 

• ADVANCE V2 

492 2 4010 



63 



** 



PIERS 



493 -24 2 

494 -33 0 

LEAVE 

495 7 4010 

496 0 6 

497 -33 0 

TRANSFER 

498 3 4010 

500 -22 7 

501 -33 0 



,FN7 



THE RED SHIPS UNLOAD CARGO AT THE DEPOT. 
ACT4 QUEUE DEPOT 

502 8 6576 



503 0 8 

504 -33 0 

ENTER 

505 6 6576 

506 0 8 

507 -33 0 

DEPART 

508 9 6576 

509 0 8 

510 -33 0 

ADVANCE 

511 2 6576 

512 0 60 

513 -22 1 

514 -33 0 

LEAVE 

515 7 6576 

516 0 8 

517 -33 0 

TRANSFER 

518 3 6576 

520 -22 7 

521 -33 0 



DEPOT 



DEPOT 



60,FN1 



DEPOT 



FN7 



THE BLUE SHIPS UNLOAD CARGO AT THE BARGE, 
ACT5 QUEUE BARGE 

522 8 5080 



523 0 10 

524 -33 0 

SEIZE 

525 6 5080 

526 0 10 

527 -33 0 

DEPART 

528 9 5080 

529 0 10 

530 -33 0 

ADVANCE 

531 2 5080 

532 0 90 

533 -22 1 

534 -33 0 

RELEASE 

535 7 5080 

536 0 10 

537 -33 0 

TRANSFER 

538 3 5080 

540 -22 7 

541 -33 0 



BARGE 



BARGE 



90, FNl 



BARGE 



FN7 



THE SHIPS LOAD CARGO AT A DOCK. 
ACT6 QUEUE DOCKS 

542 8 5736 



543 0 4 

544 -33 0 

• ENTER 

545 6 5736 



DOCKS 
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546 


0 4 




547 


-33 0 




DEPART 


DOCKS 


548 


9 5736 




549 


0 4 




550 


-33 0 




ADVANCE 


120 


551 


2 5736 




552 


0 120 




553 


-33 0 




LEAVE 


DOCKS 


554 


7 5736 




555 


0 4 




556 


-33 0 





THE SHIPS WAIT IN THE HARBOR. 
ACT? QUEUE HRBR 

557 8 7067 

558 0 11 

559 -33 0 

ENTER HRBR 

560 6 7067 

561 0 11 

562 -33 0 

DEPART HRBR 

563 9 7067 

564 0 11 

565 -33 0 

GATE NU BARGE 

566 16 7067 

567 0 10 

568 -33 3 

LEAVE HRBR 

569 7 7067 

570 0 11 

571 -33 0 

THE SHIPS LEAVE THE PORT. 

ACT8 TABULATE PI 

572 12 4104 

573 -3 1 

574 -1 1 

575 0 -1 

576 -33 0 

LEAVE PORT 

577 7 4104 

578 0 2 

579 -33 0 

TERMINATE 

580 10 4104 

581 -33 0 

TIMING LOOP 
GENERATE 5760 

582 1 0 

583 0 5760 

584 -33 0 

TERMINATE 1 

585 10 0 

586 0 1 

587 -33 0 



START 


10 1 
2 0 1 




END 




13 0 


587 


12 0 


11 


588 0 


0 


589 0 


32 


590 0 


50 


591 0 


68 


592 0 


0 



65 



593 


0 


86 


594 


0 


0 


595 


0 


104 


596 


0 


0 


5 97 


0 


122 


598 


0 


140 


15 


0 


598 


14 


0 


11 


599 


0 


0 


600 


0 


42 


601 


0 


60 


602 


0 


78 


603 


0 


0 


604 


0 


96 


605 


0 


0 


606 


0 


114 


607 


0 


0 


608 


0 


132 


609 


0 


150 


21 


0 


609 


20 


0 


9 


610 


0 


0 


611 


0 


0 


612 


0 


0 


613 


0 


0 


614 


0 


158 


615 


0 


0 


616 


0 


169 


617 


0 


0 


618 - 


0 


180 


17 


0 


618 


16 


0 


7 


619 


0 


211 


620 


0 


289 


621 


0 


382 


622 


0 


394 


623 


0 


406 


624 


0 


418 


625 


0 


430 


32 


0 


625 


31 


0 


2 


626 


0 


440 


627 


0 


446 


19 


0 


6 27 


18 


0 


42 


628 


0 


452 


629 


0 


456 


630 


0 


460 


631 


0 


463 


632 


0 


466 


633 


0 


469 


634 


0 


472 


63 5 


0 


475 


636 


0 


478 


637 


0 


482 


638 


0 


485 


639 


0 


488 


640 


0 


491 


641 


0 


494 


642 


0 


497 


643 


0 


501 


644 


0 


504 


645 


0 


507 


646 


0 


510 


647 


0 


514 


648 


0 


517 


649 


0 


521 


650 


0 


524 


651 


0 


527 


652 


0 


530 


653 


0 


534 


654 


0 


537 



66 



655 


0 


537 


656 


0 


544 


657 


0 


547 


658 


0 


550 


659 


0 


553 


660 


0 


556 


661 


0 


559 


662 


0 


562 


663 


0 


565 


664 


0 


568 


665 


0 


571 


666 


0 


576 


667 


0 


579 


668 


0 


581 


669 


0 


584 


24 


0 


3 


25 


0 


669 


428 


0 


10 


429 


0 


16 


430 


0 


22 


439 


0 


28 


440 


0 


33 
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THE GPSS/X-VECTOR RULES 
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APPENDIX D 



SUMMARY OF GPSS/X-VECTOR SEGMENT TYPES 
Semology for encoding GPSS/X-Vector : 



GPSSPROG 


-Top level segment type. 


Attributes : 


none . 


Function : 


Initiates the GPSS/X-VECTOR rules. Creates 
initial GPSS , SETAGL, STMNT , SELIST, EXPFUNC, 
NORMFUNC, DISTLIST, SUCLIST, DSTLIST, 

ACLIST, and TMLOOP segments, or goes to null. 


INITIALGPSS 


-Created from GPSSPROG. 


Attributes : 


none . 


Function : 


Initializes GPSS and X-VECTOR random num- 
ber counters to 0 , sets to 10 the value of 
the LR attribute of records that will store 
pointers to X-Vector entity allocations. 


SELIST 


-Created from GPSSPROG. 


Attributes : 


Those of STALIST plus LC . 


Function : 


Creates STENTITY, a copy of a STATENTY 
record, for further processing or goes to 
null. 


STENTITY 


-Created from SELIST. 


■ Attributes : 


Those of a specific stationary entity re- 
cord plus IPDP. 
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Function: Creates EQUCARD and a STMNT segment for a 

STORAGE. A pointer to the IPD record is 
maintained as the value of attribute IPDP. 

MELIST Created' from GPSSPROG. 

Attributes: Those of MOBLIST plus LC . 

Function: Creates MENTITY, a copy of a MOBENTY record 

for further processing, or goes to null. 

MENTITY Created from MELIST. 

Attributes: Those of the segment from which it was created. 

Function: Creates two copies of itself as EQUCARD and 

TABLECARD for further processing. 

TABLECARD Created from MENTITY. 

Attributes: Those of a MOBENTY record. 

Function: Creates a STMNT segment for a TABLE or goes 

to null. 

EQUCARD Created from STENTITY and MENTITY. 

Attributes: Those of a STATENTY or MOBENTY record. 

Function: Creates STMNT for an EQUCARD. 

EXPFUNC Created from GPSSPROG 

Attributes: None. 

Function: Creates FNDEF which is a copy of 'EXPOXREC' 

and adds attribute IPDP, a pointer to 
' EXPONREC ' , or goes to null. 

NORMFUNC Created from GPSSPROG. 

Attributes : None . 

Function: Creates FNDEF which is a copy of 'NORMREC' 

and adds attribute IPDP, a pointer to 
'NORMREC, or goes to null. 
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DISTLIST Created from GPSSPROG. 

Attributes : Those of DSTRLIST plus LC 

Function: Creates FNDEF, a copy of TYPDIST, TYPTABL, 

EXPON, NORMAL, or UNIFORM for further 
processing, or goes to null. 

SUCLIST Created from GPSSPROG. 

Attributes: Those of SCSRLIST plus LC. 

Function: Creates FNDEF, a copy of a FRACTNL, PTYP , 

QTYP, FTYP, or STYP successor descriptor 
for further processing or goes to null. 

FNDEF Created from EXPFUNC, NORMFUNC, DISTLIST, 

SUCLIST. 

Attributes : Those of the segment from which it was created 

Function: Creates 2 segments that represent a FUNCTION 

and FUNCTION X-Y coordinates or goes to null. 

DSTLIST Created from GPSSPROG. 

Attributes: Those of DSTRLIST plus LC. 

Function: Creates DISTDEF, a copy of TYDIST, TYPTABL, 

EXPON, NORMAL, or UNIFORM for further 
processing, or goes to null. 

DISTDEF Created from DSTLIST 

Attributes : Those of the segment from which it was created 

Function: For each record with a SUP of 'NORMAL' it 

creates a STMNT segment for FVARIABLE , or 
goes to null. 

ACLIST Created from GPSSPROG. 

Attributes: Those of ACTNLIST. 
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Function : 



Creates ACTT, a copy of an EVENT or ACTIVITY 
for further processing, or goes to null. 

Adds IPDP which points to the action record 
processed. 

ACTT Created from ACLIST. 

Attributes: Those of the action record from which it 

was created. 

Function: Creates a STMNT for a comment card and an 

ACT segment. 

ACT Created from ACTT. 

Attributes: Those of the action record which has been 

copied down to this level. 

Function: Creates a STMNT for each block required 

for the action. 

SUCSTMT Created from ACT. 

Attributes: Those of successor descriptor records or 

an action record. 

Function: Creates segments for TEST, TRANSFER, or 

GATE blocks from successor segments. 

TMLOOP Created from GPSSPROG. 

Attributes: None. 

Function: Creates STMNT segments for the timing loop 

\ 

blocks and START and END. 

STMNT Created from GPSSPROG, STENTITY, EQUCARD, 

TABLECARD, FNDEF , DISTDEF, ACT, SUCSTMNT, 
TMLOOP, STMNT. 

Attributes: SUP, LABL, MOD, ARGA, through ARGH 
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Functions : 



Functions : 


Preprocesses certain segments that have 
no further use and those whose arguments need 
amplification to create either a NULL segment 
or another STMNT segment. If no special 
conditions exist on the left, creates copies 
of itself as GSTMI'JT and/or XSTMNT segments. 



Lexology for encoding GPSS: 



GSTMNT (Condition) • 


-Created from STMl'JT. 


Attributes : 


SUP, LABL, MOD, ARGA through ARGH. 


Function : 


Preprocesses segments that are not ap- 
plicable in GPSS and go to null or that 
require other than normal processing. 


COMMENT 


-Created from GSTMNT with a sup of 'COMMENT'. 


Attributes : 


SUP, CHARS or SENTT. 


Function : 


Create PHRASE or SENTT segments to insert 
comments in the GPSS program. 


GSTMNT (Default) — 


-Created from STMNT. 


Attributes : 


SUP, LABL, MOD, ARGA through ARGH. 


Function : 


Creates a series of segments that represent 
the fields in a GPSS statement and a seg- 
ment ARGDH for further processing. ARGFLD 
segments are created for the first 3 argu- 
ment attributes of the segment. 


ARGDH- 


-Created from GSTMNT (Default) 


Attributes ; 


Those used are SUP and ARGD through ARGH . 


Functions : 


Creates ARGFLD segments for ARGD throv h 
ARGH or goes to null. 
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LABFLD Created from GSTMNT (Default) 

Attributes : LABL 

Function: Creates ARC with an attribute DATA with the 

value of LABL . 

MODFLD Created from GSTMNT (Default) 

Attributes : MOD 

Function: Creates an ARG with an attribute DATA with 

the value of MOD. 

ARGFLD Created from GSTMNT (Default) 

Attributes: APTR, NCOM 

Function: Created COMMAS and ARG segments represent- 

ing a comma and the value of an argument. 

XYOUT Created from GSTMNT (XYLAST) 

Attributes: Those of the segment from which it was 

created plus LAST. 

Function: Creates NEWLINEl that starts a new line 

in column 1 and a LINE segment for further 
processing . 

LINE Created from XYOUT 

Attributes: LC, LAST, XYLAST, attributes 101 through 

the value of XYLAST. 

Function: Initiates output of GPSS Function Follower 

card X-Y pair values by creating two ARG 
segments each with attribute DATA contain- 
ing the value of one of the pair or a 
pointer to the record 'DECREC' with at- 
tribute NUM taking on the value of Ex- 
ponential or Normal distribution X-Y Vctlue. 
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The value of LC is compared to the value 
of LAST so only 4 pairs of coordinates are 
output. When the value of LC is greater 
than XYLAST , output is complete. 

Morphology for encoding GPSS : 



OPFLD Created from GSTMNT (Default) 

Attributes : SUP 

Function: To enable the output of the nine letter 

strings "terminate" and "FVARIABLE". 

ARG Created from LABFLD, MODFLD, ARGFLD, LINE 

Attributes : DATA 

Function; Segments are created depending on the type 

of the value of DATA. Segments created 



may be PARC, NUMBER, or NAME. 



PARG Created from ARG. 

Attributes: Those of the segment from which it was 

created. 

Function: Create segments whose type depends on the 



condition on the left that is satisfied. 
The created segments cause an output on 
single letters for letter segments, char- 
acter string for NAME segment, and integer 
or decimal values for NUMBER or DECNUMB 
segments. 

COMMAS Created from XARGFLD 

Attributes : NCOM 
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Function : 



Causes the issue of commas prior to each 
GPSS argument or fills in commas for any 
missing arguments, or goes to null. 

NEWLINEl Created from GSTMNT with a sup of 'COMMENT' 

Attributes : None . 

Function: Starts a new line in column 1. 

NEWLINE2 Created from GSTMNT (Default) 

Attributes: None. 

Function: Starts a new line in column 2. 

NEWLINES Created from GSTMNT (Default) 

Attributes: None. 

Function: Starts a new line in column 8. 

COLUMNS Created from GSTMNT (Default) 

Attributes: None. 

Function: Moves the colum.n pointer to column 8. 

C0LUMN13 Created from GSTMNT (Default) 

Attributes : None 

Function: Moves the column pointer to column 13. 

C0LUMN19 Created from GSTMNT (Default) 

Attributes: None. 

Function: Moves the column pointer to column 19. 

NAI4E Created from ARG, various PARG segments 

Attributes : CHARS 

Function: Prints the EBCDIC value of CHARS. 

NUMBER Created from ARG, various PARG segments. 

Attributes: NUM 

Function: Prints the integer value of NUM. 
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DECNUMB 


Created from PARC with a sup of 'DECIMAL'. 


Attributes : 


NUM 


Function : 


Prints the decimal value of NUM (con- 
sidered to be in parts per thousand 



Lexology for encoding X-Vector: 



XSTMNT (Condition) 


Created from STMNT, XSTMNT. 


Attributes : 


SUP, LABL, MOD, XARGA through XARGH. 


Function : 


Segments representing action records are 
processed to initiate action creating 
entity allocations and store pointers 
to the allocation in 'BLKDIR'. 


XSTMNT (Default) 


-Created from STMNT 


Attributes : 


SUP, LABL, MOD, XARGA through XARGH 


Function : 


A segment with NOCOPY, 'COMMENT', ' EQU ' , 
or 'SIMULATE' conditions is not applicable 
to X-Vector and goes to null. A segment 
with a SUP of 'SEIZE', or 'RELEASE' is 
changed to one with a SUP of 'ENTER' or 
'LEAVE' as X-Vector only recognizes storages. 
A segment with a SUP of 'STORAGE' creates 
segments representing a STORAGE and QUEUE 
segments with a SUP condition create seg- 
ments that represent blocks with the same 
name as the SUP. A segment with an attribute 
of XYLAST creates segments initiating the 
output of the FUNCTION follov/er card v’ th 
X-Y coordinates. 



87 



STORALL Created from XSTMNT with a SUP of 'STORAGE'. 

Attributes: Those of a XSTMNT segment with a SUP of 

' STORAGE ' . 

Function: Segments representing STORAGES are pro- 

cessed to create a STORAGE allocation in 
'STORDIR' . 

QALL Created from XSTMNT with a SUP of 'STORAGE'. 

Attributes: Same as STORALL. 

Function: Same as the STORALL function only for QUEUES 

NXTALPTR Created from STORALL, QALL, and XSTMNT 

with a SUP of 'TABLE'. 

Attributes: INDX. 

Function: Updates the master X-Vector pointer, at- 

tribute FX of MEMORY, to point to the last 
element of allocations for STORAGES, QUEUES 
or TABLES . 

XXYOUT Created from itself or XSTMNT with an 

attribute of XYLAST. 

Attribute: Those of the segment from which it was 

created plus NOPTS . 

Function: Creates an XARG segment to assign the a 

value of the X-Y pair to the attribute 
DATA and a segment representing the value 
of the Y value. 

NXARG Created from XXYOUT. 
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Attributes: Those of the segment XXYOUT from which 

it was created. 

Function: Creates an XARG segment to assign the Y 

value of the X-Y pair to the attribute 
DATA. 

VALTYPE Created from XSTMNT with an attribute of 

XYLAST . 

Attributes : All attributes of the XSTMNT segment from 

which it was created. 

Function: Outputs a 1 to the left half of an X-Vector 

element if the X value of a pair is a 
decimal. 

YCHK Created from VALTYPE 

Attributes: All attributes of the XSTMNT segment from 

which it was created. 

Function: Outputs a 1 to the right half of an X-Vector 

element if the Y value is a decimal. 

PTRALL Created from XSTMNT with a SUP of 'END'. 

Attributes : Those of the named record of which it is 

a copy. The named record is a list of 
pointers to specific entity allocations. 

Function: Creates segments with attributes assigned 

the values of the number of a specific 
entity and a pointer to the directory 
allocation and creates PTRDIR. 

PTRDIR Created from PTRALL. 

Attributes: Those of PTRALL from V'/hich it v/as cror ed, 

plus LC. 
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Function; Creates a segment with attribute RIGHT as- 

signed the value of a pointer to a specific 
allocation. 

TRANSPTR Created' from XSTMNT with a SUP of 'END*. 

Attributes: None. 

Function: The value of a pointer to the free storage 

area of X-Vector is put into attribute 
RIGHT, and its location, 25, in IX. 

STUFBACK Created from XSTMNT with a SUP of 'END'. 

Attributes: Those of ' BACKSTUF ' plus LC . 

Function: Causes the value of BLOKNO to be inserted 

into its proper X-Vector location. 

XARGAC Created from XSTMNT with a SUP or 'RMULT'. 

XSTMNT (Default) 

Attributes; SUP, LABL, MOD, XARG through XARGH 

Function; Causes eventual output of the first 3 

arguments of a Block allocation, seed or 
select allocation. Creates segments XARGDH 
and XMODFLD. 

XARGDH Created from XARGAC. 

Attributes: Primarily SUP and XARGD through XARGH 

Function: Causes eventual output of the value of 

XARGD through XARGH. 

XMODFLD Created from XARGAC. 

Attributes: SUP, MOD, or XMOD. 

Function: Causes code -33 and code for MOD type to 

be entered in last element of a BLOCK 
allocation if XMOD attribute is presen . 
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Causes entry of pointer to original action 
record in right half of the last element. 

XARGFLD Created from XARGAC , XARGDH, XSTMNT with 

a SUP of ' FVARIABLE ' . 

Attributes: APTR. 

Function: Causes output of argument value codes to 

SNA elements of a Block allocation. If 
an argument is missing, an element is as- 
signed, as an argument's position indicates 
which argument it is. 

SETDIR Created from STORALL, QALL, XSTMNT with 

a SUP of 'TABLE', XSTMNT (Default) 

Attributes: DIR, LABL, INCREM if SUP is 'FVARIABLE' 

or XSTMNT has no condition on the left. 

Function: Saves pointers to the allocations for 

all entities in a record pointed to by 
the value of DIR. 

Morphology for encoding X-Vector: 

XARG Created from XSTMNT with a SUP of 'FUNCTION', 

XXYOUT, NXARG, and XARGFLD. 

Attributes : DATA 

Function: Segments are created depending on the type 

of the value of DATA, segments may be 
XPARG, NUMBER, or NULL. 

XPARG Created from XARG 

Attributes: Those of the segment from which it war 

created plus IPDP. 
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Function : 



Causes an output to the X-Vector primarily 
for each argument of a BLOCK allocation. 

XCODE Created from XSTMInIT with a SUP of 'FUNCTION' 

XMODFLD’ (No Conditions) , XPARG segments with 
a SUP of 'SNAREF', 'PARAMNO', ' TRAI^STIM ' , 
'RANDM', 'NORMAL', or XPARG segments with 
attributes of MEAN and STDEV, XYLAST . 

Attributes: LEFT, RIGHT, NAM from a segment with a SUP 

of ' SNAREF ' . 

Function; Causes a negative code value to be entered 

in the left half of an element as required 
for identification by the simulation routine 

XVECTOR Created from a variety of segments . 

Attributes: INDX from various segments, IX from some 

segments, LEFT and RIGHT from all segments 
creating XVECTOR. This value may be 0. 

SNAS Created from XARGFLD. 

Attribute: NSNA 

Function; Skips elements in Block allocations if that 

argument is not there. 

TIMARG Created from XPARG in the set 'ABSTIME'. 

Attributes; NUM, UNITS. 

Function: Adjusts any times mentioned in the problem 

with units not the same as the basic time 
unit. 

TNUMBER Created from TIMARG 

Attributes: Indicator XUSW and attribute NUM or ji 't NUM 

Creates an XVECTOR segment if XUSW is set, 

otherwise a NUMBER segment is created. 
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